procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := IntToStr(StrToInt('$AFFE')); //45054
end;

